home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / NTM_MP3_Pl1787258292004.psc / MP3 Player / Form1.frm next >
Text File  |  2004-07-29  |  19KB  |  657 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "msdxm.ocx"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  5. Begin VB.Form Form1 
  6.    BackColor       =   &H00FFFFFF&
  7.    BorderStyle     =   0  'None
  8.    ClientHeight    =   4410
  9.    ClientLeft      =   17310
  10.    ClientTop       =   6225
  11.    ClientWidth     =   7575
  12.    ClipControls    =   0   'False
  13.    ControlBox      =   0   'False
  14.    Icon            =   "Form1.frx":0000
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   4410
  19.    ScaleWidth      =   7575
  20.    StartUpPosition =   2  'CenterScreen
  21.    Visible         =   0   'False
  22.    Begin VB.Timer Timer6 
  23.       Interval        =   1
  24.       Left            =   8520
  25.       Top             =   3600
  26.    End
  27.    Begin VB.Timer Timer7 
  28.       Interval        =   300
  29.       Left            =   9000
  30.       Top             =   3600
  31.    End
  32.    Begin VB.Timer Timer2 
  33.       Interval        =   1
  34.       Left            =   8040
  35.       Top             =   3600
  36.    End
  37.    Begin VB.PictureBox Picture14 
  38.       AutoSize        =   -1  'True
  39.       BorderStyle     =   0  'None
  40.       Height          =   225
  41.       Left            =   7050
  42.       Picture         =   "Form1.frx":0BC2
  43.       ScaleHeight     =   225
  44.       ScaleWidth      =   225
  45.       TabIndex        =   4
  46.       Top             =   270
  47.       Width           =   225
  48.    End
  49.    Begin VB.PictureBox Picture12 
  50.       AutoSize        =   -1  'True
  51.       BorderStyle     =   0  'None
  52.       Height          =   225
  53.       Left            =   6720
  54.       Picture         =   "Form1.frx":0FA1
  55.       ScaleHeight     =   225
  56.       ScaleWidth      =   225
  57.       TabIndex        =   6
  58.       Top             =   270
  59.       Width           =   225
  60.    End
  61.    Begin VB.Frame Frame1 
  62.       BackColor       =   &H80000005&
  63.       Caption         =   "Playlist"
  64.       ForeColor       =   &H00000000&
  65.       Height          =   1935
  66.       Left            =   240
  67.       TabIndex        =   1
  68.       Top             =   2520
  69.       Width           =   7095
  70.       Begin VB.ListBox PlayList 
  71.          BackColor       =   &H00800000&
  72.          Enabled         =   0   'False
  73.          ForeColor       =   &H00FFFFFF&
  74.          Height          =   1545
  75.          IntegralHeight  =   0   'False
  76.          ItemData        =   "Form1.frx":1358
  77.          Left            =   120
  78.          List            =   "Form1.frx":135A
  79.          TabIndex        =   2
  80.          Top             =   240
  81.          Width           =   6855
  82.       End
  83.    End
  84.    Begin MSComctlLib.Slider Slider1 
  85.       Height          =   360
  86.       Left            =   240
  87.       TabIndex        =   17
  88.       Top             =   1800
  89.       Width           =   7095
  90.       _ExtentX        =   12515
  91.       _ExtentY        =   635
  92.       _Version        =   393216
  93.       Max             =   100
  94.       TickStyle       =   3
  95.    End
  96.    Begin VB.Timer Timer1 
  97.       Interval        =   1
  98.       Left            =   9480
  99.       Top             =   3120
  100.    End
  101.    Begin VB.TextBox txtTime 
  102.       Height          =   375
  103.       Left            =   9120
  104.       TabIndex        =   19
  105.       Top             =   4800
  106.       Width           =   975
  107.    End
  108.    Begin VB.TextBox Text3 
  109.       Height          =   375
  110.       Left            =   7680
  111.       TabIndex        =   16
  112.       Top             =   5280
  113.       Width           =   1215
  114.    End
  115.    Begin VB.Timer Timer5 
  116.       Left            =   9000
  117.       Top             =   3120
  118.    End
  119.    Begin VB.PictureBox PicBorder 
  120.       BackColor       =   &H80000009&
  121.       BorderStyle     =   0  'None
  122.       Height          =   375
  123.       Left            =   1320
  124.       ScaleHeight     =   375
  125.       ScaleWidth      =   4860
  126.       TabIndex        =   12
  127.       Top             =   840
  128.       Width           =   4860
  129.       Begin VB.CommandButton cmdPause 
  130.          Caption         =   "Pause"
  131.          Height          =   375
  132.          Left            =   2520
  133.          TabIndex        =   21
  134.          Top             =   0
  135.          Width           =   1095
  136.       End
  137.       Begin VB.CommandButton cmdStop 
  138.          Caption         =   "Stop"
  139.          Height          =   375
  140.          Left            =   3720
  141.          TabIndex        =   13
  142.          Top             =   0
  143.          Width           =   1095
  144.       End
  145.       Begin VB.CommandButton cmdOpen 
  146.          Caption         =   "Open"
  147.          Height          =   375
  148.          Left            =   120
  149.          TabIndex        =   15
  150.          Top             =   0
  151.          Width           =   1095
  152.       End
  153.       Begin VB.CommandButton cmdPlay 
  154.          Caption         =   "Play"
  155.          Enabled         =   0   'False
  156.          Height          =   375
  157.          Left            =   1320
  158.          TabIndex        =   14
  159.          Top             =   0
  160.          Width           =   1095
  161.       End
  162.    End
  163.    Begin VB.TextBox Text2 
  164.       Height          =   375
  165.       Left            =   7920
  166.       TabIndex        =   11
  167.       Top             =   6120
  168.       Width           =   855
  169.    End
  170.    Begin VB.Timer Timer4 
  171.       Interval        =   1
  172.       Left            =   8520
  173.       Top             =   3120
  174.    End
  175.    Begin VB.TextBox Text1 
  176.       Height          =   285
  177.       Left            =   9120
  178.       TabIndex        =   10
  179.       Top             =   5760
  180.       Width           =   495
  181.    End
  182.    Begin VB.PictureBox Picture13 
  183.       AutoSize        =   -1  'True
  184.       BorderStyle     =   0  'None
  185.       Height          =   225
  186.       Left            =   6720
  187.       Picture         =   "Form1.frx":135C
  188.       ScaleHeight     =   225
  189.       ScaleWidth      =   225
  190.       TabIndex        =   5
  191.       Top             =   270
  192.       Width           =   225
  193.       Visible         =   0   'False
  194.    End
  195.    Begin VB.PictureBox Picture15 
  196.       AutoSize        =   -1  'True
  197.       BorderStyle     =   0  'None
  198.       Height          =   225
  199.       Left            =   7050
  200.       Picture         =   "Form1.frx":1713
  201.       ScaleHeight     =   225
  202.       ScaleWidth      =   225
  203.       TabIndex        =   3
  204.       Top             =   270
  205.       Width           =   225
  206.       Visible         =   0   'False
  207.    End
  208.    Begin VB.ListBox List1 
  209.       Height          =   645
  210.       Left            =   360
  211.       TabIndex        =   0
  212.       Top             =   6000
  213.       Width           =   7095
  214.    End
  215.    Begin VB.Timer Timer3 
  216.       Enabled         =   0   'False
  217.       Interval        =   1
  218.       Left            =   8040
  219.       Top             =   3120
  220.    End
  221.    Begin MSComDlg.CommonDialog CD 
  222.       Left            =   8160
  223.       Top             =   720
  224.       _ExtentX        =   847
  225.       _ExtentY        =   847
  226.       _Version        =   393216
  227.       DialogTitle     =   "Open MP3"
  228.       Filter          =   "MP3 Files [*.mp3]|*.mp3"
  229.    End
  230.    Begin VB.Label Label1 
  231.       Alignment       =   2  'Center
  232.       BackColor       =   &H00800000&
  233.       BorderStyle     =   1  'Fixed Single
  234.       Caption         =   "NTM MP3  Player"
  235.       BeginProperty Font 
  236.          Name            =   "Verdana"
  237.          Size            =   9.75
  238.          Charset         =   0
  239.          Weight          =   700
  240.          Underline       =   0   'False
  241.          Italic          =   0   'False
  242.          Strikethrough   =   0   'False
  243.       EndProperty
  244.       ForeColor       =   &H00FFFFFF&
  245.       Height          =   330
  246.       Left            =   240
  247.       TabIndex        =   8
  248.       Top             =   240
  249.       Width           =   6375
  250.    End
  251.    Begin VB.Label Label2 
  252.       Alignment       =   2  'Center
  253.       BackColor       =   &H00800000&
  254.       BorderStyle     =   1  'Fixed Single
  255.       BeginProperty Font 
  256.          Name            =   "MS Sans Serif"
  257.          Size            =   8.25
  258.          Charset         =   0
  259.          Weight          =   700
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       ForeColor       =   &H00FFFFFF&
  265.       Height          =   255
  266.       Left            =   6000
  267.       TabIndex        =   18
  268.       Top             =   2280
  269.       Width           =   1335
  270.    End
  271.    Begin VB.Label A 
  272.       Alignment       =   2  'Center
  273.       BackColor       =   &H00800000&
  274.       BorderStyle     =   1  'Fixed Single
  275.       ForeColor       =   &H00FFFFFF&
  276.       Height          =   255
  277.       Left            =   240
  278.       TabIndex        =   7
  279.       Top             =   1440
  280.       Width           =   7095
  281.    End
  282.    Begin MediaPlayerCtl.MediaPlayer MP3 
  283.       Height          =   255
  284.       Left            =   7920
  285.       TabIndex        =   9
  286.       Top             =   4200
  287.       Width           =   2175
  288.       Visible         =   0   'False
  289.       AudioStream     =   -1
  290.       AutoSize        =   0   'False
  291.       AutoStart       =   -1  'True
  292.       AnimationAtStart=   -1  'True
  293.       AllowScan       =   -1  'True
  294.       AllowChangeDisplaySize=   -1  'True
  295.       AutoRewind      =   -1  'True
  296.       Balance         =   0
  297.       BaseURL         =   ""
  298.       BufferingTime   =   5
  299.       CaptioningID    =   ""
  300.       ClickToPlay     =   -1  'True
  301.       CursorType      =   0
  302.       CurrentPosition =   -1
  303.       CurrentMarker   =   0
  304.       DefaultFrame    =   ""
  305.       DisplayBackColor=   0
  306.       DisplayForeColor=   16777215
  307.       DisplayMode     =   0
  308.       DisplaySize     =   4
  309.       Enabled         =   -1  'True
  310.       EnableContextMenu=   -1  'True
  311.       EnablePositionControls=   -1  'True
  312.       EnableFullScreenControls=   0   'False
  313.       EnableTracker   =   -1  'True
  314.       Filename        =   ""
  315.       InvokeURLs      =   -1  'True
  316.       Language        =   -1
  317.       Mute            =   0   'False
  318.       PlayCount       =   0
  319.       PreviewMode     =   0   'False
  320.       Rate            =   1
  321.       SAMILang        =   ""
  322.       SAMIStyle       =   ""
  323.       SAMIFileName    =   ""
  324.       SelectionStart  =   -1
  325.       SelectionEnd    =   -1
  326.       SendOpenStateChangeEvents=   -1  'True
  327.       SendWarningEvents=   -1  'True
  328.       SendErrorEvents =   -1  'True
  329.       SendKeyboardEvents=   0   'False
  330.       SendMouseClickEvents=   0   'False
  331.       SendMouseMoveEvents=   0   'False
  332.       SendPlayStateChangeEvents=   -1  'True
  333.       ShowCaptioning  =   0   'False
  334.       ShowControls    =   -1  'True
  335.       ShowAudioControls=   -1  'True
  336.       ShowDisplay     =   0   'False
  337.       ShowGotoBar     =   0   'False
  338.       ShowPositionControls=   -1  'True
  339.       ShowStatusBar   =   0   'False
  340.       ShowTracker     =   -1  'True
  341.       TransparentAtStart=   0   'False
  342.       VideoBorderWidth=   0
  343.       VideoBorderColor=   0
  344.       VideoBorder3D   =   0   'False
  345.       Volume          =   0
  346.       WindowlessVideo =   0   'False
  347.    End
  348.    Begin VB.Shape Shape1 
  349.       BackColor       =   &H00FFFFFF&
  350.       BackStyle       =   1  'Opaque
  351.       BorderWidth     =   2
  352.       Height          =   4455
  353.       Left            =   120
  354.       Top             =   120
  355.       Width           =   7335
  356.    End
  357.    Begin VB.Label Label3 
  358.       BackStyle       =   0  'Transparent
  359.       Height          =   4695
  360.       Left            =   0
  361.       TabIndex        =   20
  362.       Top             =   0
  363.       Width           =   7575
  364.    End
  365.    Begin VB.Menu mnuA 
  366.       Caption         =   "NTM"
  367.       Visible         =   0   'False
  368.       Begin VB.Menu mnuaa 
  369.          Caption         =   "Open"
  370.       End
  371.       Begin VB.Menu mnuAAA 
  372.          Caption         =   "-"
  373.       End
  374.       Begin VB.Menu mnuaav 
  375.          Caption         =   "E&xit"
  376.       End
  377.    End
  378.    Begin VB.Menu mnuk 
  379.       Caption         =   "NTM2"
  380.       Visible         =   0   'False
  381.       Begin VB.Menu mnuR 
  382.          Caption         =   "Show"
  383.       End
  384.       Begin VB.Menu mnuPlay 
  385.          Caption         =   "Play"
  386.       End
  387.       Begin VB.Menu mhuzfd 
  388.          Caption         =   "Open"
  389.       End
  390.       Begin VB.Menu mnuP 
  391.          Caption         =   "Pause"
  392.       End
  393.       Begin VB.Menu mhuazd 
  394.          Caption         =   "Stop"
  395.       End
  396.       Begin VB.Menu mnukksa 
  397.          Caption         =   "-"
  398.       End
  399.       Begin VB.Menu zdfa 
  400.          Caption         =   "E&xit"
  401.       End
  402.    End
  403. End
  404. Attribute VB_Name = "Form1"
  405. Attribute VB_GlobalNameSpace = False
  406. Attribute VB_Creatable = False
  407. Attribute VB_PredeclaredId = True
  408. Attribute VB_Exposed = False
  409. Dim COORD As POINT_TYPE, MOVEok As Boolean
  410. Dim MOVE2ok As Boolean, MOVE3ok As Boolean
  411. Dim SPOTx, SPOTy, MOVE4ok As Boolean
  412. Dim PL As String
  413. Private Declare Function ReleaseCapture Lib "user32" () As Long
  414. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  415. Private Const WM_SYSCOMMAND = &H112
  416. Private Sub cmdOpen_Click()
  417. Timer1.Enabled = True
  418. On Error Resume Next
  419. CD.FileName = MP3.FileName
  420. CD.ShowOpen
  421. If CD.FileName = MP3.FileName Then
  422. GoTo Crapy
  423. Else
  424. On Error Resume Next
  425. MP3.FileName = CD.FileName
  426. Slider1.Max = MP3.Duration
  427. A.Caption = MP3.GetMediaInfoString(mpClipAuthor) & " - " & MP3.GetMediaInfoString(mpClipTitle)
  428. PlayList.AddItem List1.ListCount + 1 & ". " & MP3.GetMediaInfoString(mpClipAuthor) & " - " & MP3.GetMediaInfoString(mpClipTitle)
  429. List1.AddItem MP3.FileName
  430. Timer1.Enabled = True
  431. Timer2.Enabled = True
  432. Timer3.Enabled = True
  433. cmdPause.Enabled = True
  434. Crapy:
  435. End If
  436. End Sub
  437. Private Sub cmdPause_Click()
  438. If Text1.Text = "" Then
  439. Timer3.Enabled = False
  440. MP3.Pause
  441. Text1.Text = "k"
  442. Timer1.Enabled = False
  443. cmdPlay.Enabled = True
  444. mnuPlay.Enabled = True
  445. Else
  446. cmdPlay_Click
  447. Text1.Text = ""
  448. cmdPlay.Enabled = False
  449. mnuPlay.Enabled = False
  450. End If
  451. End Sub
  452. Private Sub cmdPlay_Click()
  453. MP3.Play
  454. Timer1.Enabled = True
  455. A.Caption = MP3.GetMediaInfoString(mpClipAuthor) & " - " & MP3.GetMediaInfoString(mpClipTitle)
  456. cmdPause.Enabled = True
  457. mnuP.Enabled = True
  458. Timer3.Enabled = True
  459. Timer4.Enabled = True
  460. Slider1.Max = MP3.Duration
  461. Text1.Text = ""
  462. End Sub
  463. Private Sub cmdStop_Click()
  464. MP3.Stop
  465. cmdPause.Enabled = False
  466. mnuP.Enabled = False
  467. mnuPlay.Enabled = True
  468. cmdPlay.Enabled = True
  469. Text1.Text = ""
  470. Text2.Text = ""
  471. txtTime.Text = ""
  472. Label2.Caption = ""
  473. A.Caption = ""
  474. Slider1.Value = 0
  475. MP3.CurrentPosition = 0
  476. CD.FileName = ""
  477. Timer3.Enabled = False
  478. Timer4.Enabled = False
  479. End Sub
  480. Private Sub Form_Load()
  481. Timer1.Enabled = False
  482. Timer7.Enabled = False
  483. cmdPlay.Enabled = False
  484. mnuPlay.Enabled = False
  485. PlayList.Enabled = True
  486. cmdPause.Enabled = False
  487. mnuP.Enabled = False
  488. End Sub
  489. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  490. If RespondToTray(X) = 1 Then
  491. ShowFormAgain Me
  492. Form1.WindowState = 0 - Normal
  493. End If
  494. If RespondToTray(X) = 2 Then
  495. Me.PopupMenu mnuk
  496. End If
  497. End Sub
  498. Private Sub label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  499. Picture12.Visible = True
  500. Picture13.Visible = False
  501. Picture14.Visible = True
  502. Picture15.Visible = False
  503. End Sub
  504. Private Sub Label1_Click()
  505. MsgBox "This program was " & "Made By NeoTheMaster @ Darkside Reborn" & vbCrLf & "Uptime: " & GetUptime & vbCrLf & "Du har " & List1.ListCount & " lσtar i playlist", vbInformation, "NTM"
  506. End Sub
  507. Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  508. SPOTx = X
  509. SPOTy = Y
  510. MOVE3ok = True
  511. Timer5.Interval = 10
  512. End Sub
  513. Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  514. MOVE3ok = False
  515. Timer5.Interval = 0
  516. End Sub
  517. Private Sub mhuazd_Click()
  518. cmdStop_Click
  519. End Sub
  520. Private Sub mhuzfd_Click()
  521. cmdOpen_Click
  522. End Sub
  523. Private Sub mnuaa_Click()
  524. cmdOpen_Click
  525. End Sub
  526. Private Sub mnuaav_Click()
  527. Picture15_Click
  528. End Sub
  529. Private Sub mnuP_Click()
  530. cmdPause_Click
  531. End Sub
  532. Private Sub mnuPlay_Click()
  533. cmdPlay_Click
  534. End Sub
  535. Private Sub mnuR_Click()
  536. ShowFormAgain Me
  537. Form1.WindowState = 0 - Normal
  538. End Sub
  539. Private Sub MP3_EndOfStream(ByVal Result As Long)
  540. cmdPause.Enabled = False
  541. Text1.Text = ""
  542. Text2.Text = ""
  543. txtTime.Text = ""
  544. Label2.Caption = ""
  545. A.Caption = ""
  546. Slider1.Value = 0
  547. On Error GoTo error
  548. PlayList.ListIndex = PlayList.ListIndex + 1
  549. MP3.Open List1.ListIndex + 1
  550. Playlist_DblClick
  551. Exit Sub
  552. error:
  553. PlayList.ListIndex = 0
  554. MP3.Open PlayList.ListIndex = 0
  555. Playlist_DblClick
  556. End Sub
  557. Private Sub Picture13_Click()
  558. Form1.WindowState = vbMinimized
  559. End Sub
  560. Private Sub Picture15_Click()
  561. MP3.Stop
  562. End
  563. End Sub
  564. Private Sub Picture12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  565. Picture12.Visible = False
  566. Picture13.Visible = True
  567. Picture14.Visible = True
  568. Picture15.Visible = False
  569. End Sub
  570. Private Sub Picture14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  571. Picture12.Visible = True
  572. Picture13.Visible = False
  573. Picture14.Visible = False
  574. Picture15.Visible = True
  575. End Sub
  576. Private Sub Playlist_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  577. On Error Resume Next
  578. If Button = 2 Then
  579. Me.PopupMenu mnuA
  580. End If
  581. End Sub
  582. Private Sub Playlist_DblClick()
  583. On Error GoTo B
  584. List1.ListIndex = PlayList.ListIndex
  585. MP3.FileName = List1.Text
  586. PL = MP3.GetMediaInfoString(mpClipAuthor) & " - " & MP3.GetMediaInfoString(mpClipTitle)
  587. A.Caption = PL
  588. Slider1.Max = MP3.Duration
  589. cmdPause.Enabled = True
  590. Timer3.Enabled = True
  591. B:
  592. End Sub
  593. Private Sub Slider1_Scroll()
  594. MP3.CurrentPosition = Slider1.Value
  595. End Sub
  596. Private Sub Timer1_Timer()
  597. If A.Caption = "" Then
  598. cmdPlay.Enabled = True
  599. cmdPause.Enabled = False
  600. mnuP.Enabled = False
  601. mnuPlay.Enabled = True
  602. Else
  603. cmdPlay.Enabled = False
  604. cmdPause.Enabled = True
  605. mnuP.Enabled = True
  606. mnuPlay.Enabled = False
  607. End If
  608. End Sub
  609. Private Sub Timer2_Timer()
  610. If Form1.WindowState = 1 - minimized Then
  611. AddToTray Me.Icon, "NTM MP3 Player Nice Version", Me
  612. Timer2.Enabled = False
  613. Timer6.Enabled = True
  614. End If
  615. End Sub
  616. Private Sub Timer6_Timer()
  617. If Form1.WindowState = 0 - Normal Then
  618. ShowFormAgain Me
  619. Timer2.Enabled = True
  620. Timer6.Enabled = False
  621. End If
  622. End Sub
  623. Private Sub Timer3_Timer()
  624. Label2.Caption = txtTime.Text & " / " & Text2.Text
  625. End Sub
  626. Private Sub Timer4_Timer()
  627. tinseconden = MP3.CurrentPosition
  628. Dim min As Integer
  629. Dim sec As Integer
  630. min = tinseconden \ 60
  631. sec = tinseconden - (min * 60)
  632. If sec = "-1" Then sec = "0"
  633. txtTime.Text = min & ":" & sec
  634. Slider1.Value = MP3.CurrentPosition
  635. twinsec = MP3.Duration
  636. Dim A As Integer
  637. Dim B As Integer
  638. A = twinsec \ 60
  639. B = twinsec - (A * 60)
  640. If B = "-1" Then sec = "0"
  641.  Text2.Text = A & ":" & B
  642. End Sub
  643. Private Sub Timer5_Timer()
  644. If MOVE3ok = True Then
  645. GetCursorPos COORD
  646. Form1.Left = COORD.X * Screen.TwipsPerPixelX - SPOTx
  647. Form1.Top = COORD.Y * Screen.TwipsPerPixelY - SPOTy
  648. End If
  649. End Sub
  650. Private Sub Timer7_Timer()
  651. Me.Hide
  652. Timer7.Enabled = False
  653. End Sub
  654. Private Sub zdfa_Click()
  655. Picture15_Click
  656. End Sub
  657.